home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest88 / drdeath.red < prev    next >
Text File  |  1989-07-30  |  2KB  |  53 lines
  1. ;Dr. Death
  2. ;by A. K. Dewdney
  3. ;Canada
  4. ;
  5. START         SPL                    PARTA
  6.               SPL                    PARTB
  7. PTR           SPL                    PARTC
  8. TOP           MOV   #  0             PTR
  9. ZAP           MOV      PTR           BOMB
  10. SPAWNA        JMP      TOP
  11. PARTA         MOV   #  0          @  WHOA
  12.               ADD   #  101           WHOA
  13. LOOPA         MOV   #  0          @  WHOB
  14.               ADD   #  101           WHOB
  15. WHOA          MOV   #  1             BANG
  16. PARTB         JMP      LOOPA
  17. WHOB          DAT                    500
  18. CENTER        CMP   @  BOMB       @  BOMB
  19.               JMP      KILL
  20.               CMP   # -1             BOMB
  21.               JMP      SKIP1
  22.               SUB   # -32            BOMB
  23.               SUB   # -32            BOMB+1
  24. SKIP1         ADD   #  1             BOMB
  25.               ADD   #  1             BOMB+1
  26. PARTC         MOV   #  1             DONG
  27.               JMP      CENTER
  28. MID           SUB   #  1             BANG-1
  29.               JMZ      SKIP2         BANG-1
  30.               SPL                    SPAWNA
  31. SKIP2         SUB   #  1             BANG
  32.               JMZ      SKIP3         BANG
  33.               SPL                    LOOPA
  34.  
  35. SKIP3         SUB   #  1             DONG
  36.               JMZ      SKIP4         DONG
  37.               SPL                    CENTER
  38. SKIP4         SUB   #  1             DONG+1
  39.               JMZ      SKIP5         DONG+1
  40.               SPL                   -51
  41. SKIP5         MOV   #  1             ZAP
  42.               JMP      MID
  43. KILL          MOV   @  BOMB       @  BOMB+1
  44.               JMP      CENTER
  45. BOMB          DAT                    SPAWNA
  46.               DAT                   -75
  47.               DAT                    1
  48. BANG          DAT                    1
  49. DONG          DAT                    1
  50.               DAT                    1
  51.               END                    START
  52.  
  53.